Opened by Alter at 2008-04-06 21:46
User since
2008-02-27
67 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2008-02-27
67 Artikel
BenutzerIn
So es geht nun. Ich hätte es nie geglaubt das ich das mal sage, aber hoch lebe der IE.
So sieht der Spass nun aus. Mit Opera und FireFox geht es nicht local sich die Bilder anzeigen zu lassen, aber mit IE.
Vielen Dank an alle die am Thread teilgenommen haben.
Gruß Martin Alter
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!c:\perl\bin\perl.exe
use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(param);
use File::Find;
print "Content-type: text/html\n\n";
my @erg;
my $i = 1;
my $pfad = "C:/Eigene_Bilder";
find(\&wanted,$pfad);
sub wanted {
push @erg,$File::Find::name if $File::Find::name=~/\.jpg$/i;
}
print "<img src=\"@erg[$i]\" alt=\"Banner\" border=1>";
So sieht der Spass nun aus. Mit Opera und FireFox geht es nicht local sich die Bilder anzeigen zu lassen, aber mit IE.
Vielen Dank an alle die am Thread teilgenommen haben.
Gruß Martin Alter
The only way to survive! Before and after the year 2000, 3000, 4000, ... and tomorrow, too! Linux forever